home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / math help (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  71 lines
  1. 5 poke53280,.:poke53281,.:print"[147]"
  2. 10 gosub 210
  3. 11 gosub 470
  4. 90 print"[147]"chr$(142)
  5. 100 print"       euclid's greatest common"
  6. 110 print"      factor finder ... liz deal[154]"
  7. 120 a=1221:b=2553:va=a:vb=b
  8. 130 print" [155]a"," b","ratio","remainder[154]"
  9. 140 ra=int(a/b)
  10. 150 r=a-ra*b:printa,b,ra,r
  11. 160 ifr>0thena=b:b=r:goto140
  12. 170 print"[159]   gcf[152]="b
  13. 180 print"[159] a/gcf[152]="va/b
  14. 190 print"[159] b/gcf[152]="vb/b
  15. 200 print"[158]        press space to continue"
  16. 201 geta$:ifa$<>" "then 201
  17. 205 goto11
  18. 210 print"[147]"
  19. 220 print"           [158]L O A D S T A R"
  20. 230 print"           [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  21. 240 print
  22. 250 print"              [159]Presents"
  23. 260 print
  24. 270 print
  25. 280 print
  26. 290 print"       EUCLID'S GREATEST COMMON"
  27. 300 print
  28. 310 print"            FACTOR[160]FINDER"
  29. 320 print
  30. 330 print
  31. 340 print
  32. 350 print"          [154]Written By [159]Liz Deal"
  33. 360 print
  34. 370 print
  35. 380 print
  36. 390 print"            [156]Copyright 1987"
  37. 400 print
  38. 410 print
  39. 420 print"        Press [153]SPACE To Continue"
  40. 430 print
  41. 440 print
  42. 450 print"";
  43. 460 geta$:ifa$<>" "then460
  44. 465 return
  45. 470 print"[147]"
  46. 480 print
  47. 490 print
  48. 500 print
  49. 510 print"        EUCLID'S GREATEST COMMON"
  50. 520 print"              FACTOR FINDER"
  51. 530 print"         [152]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}"
  52. 540 print
  53. 550 print"       1[155]) [154]Run Routine."
  54. 560 print
  55. 570 print
  56. 580 print"       2[155]) [154]QUIT to [158]LOADSTAR"
  57. 590 print
  58. 600 print"        [153][197]nter [211]election  [155](1 [153][207]r 2[155])   "
  59. 630 geta$:ifa$=""then630
  60. 640 ifa$="1"then return
  61. 650 ifa$="2"then 800
  62. 660 goto 630
  63. 800 print"[145][158]       [196]o [217]ou [215]ish [212]o [209]uit? ([217]/[206])"
  64. 801 geta$:ifa$=""then801
  65. 805 ifa$="y"ora$="[217]"then850
  66. 806 ifa$="[206]"ora$="n"thenprint"[145]";:goto600
  67. 807 goto 801
  68. 850 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  69. 851 ifer<>63 then print"[147]":end
  70. 852 load"hello connect",8,1
  71.